home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / match_10.zip / MVIEW.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-03-11  |  3KB  |  156 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2728 bytes  01/29/123  04:30:30pm
  3. '! Code Segment Size  :1236 bytes
  4. '! Data Segment Size  :4619 bytes
  5. '! String Segment Size:1492 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4463 As String
  9.       Dim s4467 As String
  10.       Dim s4471 As String
  11.       Dim s4475 As String
  12.       Dim s4479 As String
  13.       Dim s4483 As String
  14.       Dim s4487 As String
  15.       Dim s4491 As String
  16.       Dim s4495 As String
  17.       Dim s4499 As String
  18.       Dim s4503 As String
  19.       Dim s4507 As String
  20.       Dim s4511 As String
  21.       Dim s4515 As String
  22.       Dim s4519 As String
  23.       Dim s4523 As String
  24.       Dim s4527 As String
  25.       Dim s4531 As String
  26.       Dim s4535 As String
  27.       Dim s4539 As String
  28.       Dim s4543 As String
  29.       Dim s4547 As String
  30.       Dim s4551 As String
  31.       Dim s4555 As String
  32.       Dim s4559 As String
  33.       Dim s4563 As String
  34.       Dim s4567 As String
  35.       Dim s4571 As String
  36.       Dim s4575 As String
  37.       Dim s4579 As String
  38.       Dim s4583 As String
  39.       Dim s4587 As String
  40.       Dim s4591 As String
  41.       Dim s4595 As String
  42.       Dim s4599 As String
  43.       Dim s4603 As String
  44.       Dim s4607 As String
  45.       Dim s4611 As String
  46.       Dim s4615 As String
  47.  
  48.       Do
  49.    40   Open "Matcher!.cfg" For Input As 1
  50.         Input #1, s4563
  51.         Input #1, s4567
  52.         Input #1, s4571
  53.         Input #1, s4575
  54.         Input #1, s4579
  55.         Input #1, s4583
  56.         Input #1, s4587
  57.         Input #1, s4591
  58.         Input #1, s4595
  59.         Input #1, s4599
  60.         Input #1, s4603
  61.         Input #1, s4607
  62.         Input #1, s4611
  63.         Close 1
  64.         Print "What User Number would you like to view?"
  65.         s4555 = InputMask(" ", "XXXXXXX", "", 1213417543)
  66.         If (s4555 = "") = 0 Then GoTo 215
  67.       Loop
  68.       Do
  69.   215   Print
  70.         Print "@09@Is the User you want to view MALE or FEMALE?"
  71.         Print "@01@[@0F@1@01@]@09@ Male"
  72.         Print "@01@[@0F@2@01@]@09@ Female"
  73.         Print "@01@[@0F@3@01@]@09@ I don't know@0B@"
  74.         s4559 = InputMask("", "9", "", 1213417543)
  75.         If s4559 = "1" Then
  76.           s4559 = "M"
  77.           GoTo 409
  78.         End If
  79.   312   If s4559 = "2" Then
  80.           s4559 = "F"
  81.           GoTo 409
  82.         End If
  83.   344   If s4559 = "3" Then
  84.           Print "@0F@Then you need to go back to the Main Matcher! Menu and list the users"
  85.           Print "that have filled in their information, and see whether their Male or"
  86.           Print "Female, then come back here.  Thanks."
  87.           WaitEnter 
  88.           GoTo 1064
  89.           GoTo 409
  90.         End If
  91.   403 Loop
  92.   409 Open s4595 For Output As 6
  93.       Print #6, s4591; s4559; s4555
  94.       Close 6
  95.       Open s4595 For Input As 7
  96.       Input #7, s4615
  97.       Close 7
  98.       If Exists(s4615) Then
  99.         Open s4615 For Input As 2
  100.         Input #2, s4463
  101.         Input #2, s4467
  102.         Input #2, s4471
  103.         Input #2, s4475
  104.         Input #2, s4479
  105.         Input #2, s4483
  106.         Input #2, s4487
  107.         Input #2, s4491
  108.         Input #2, s4495
  109.         Input #2, s4499
  110.         Input #2, s4503
  111.         Input #2, s4507
  112.         Input #2, s4511
  113.         Input #2, s4515
  114.         Input #2, s4519
  115.         Input #2, s4523
  116.         Input #2, s4527
  117.         Input #2, s4531
  118.         Input #2, s4535
  119.         Input #2, s4539
  120.         Input #2, s4543
  121.         Input #2, s4547
  122.         Input #2, s4551
  123.         Close 2
  124.         Cls 
  125.         Print "@08@─@07@─@0F@─@04@User ID Number @09@- @0F@"; s4463
  126.         Print "@08@─@07@─@0F@─@04@Real Name @09@- @0F@"; s4467
  127.         Print "@08@─@07@─@0F@─@04@Other Handles @09@- @0F@"; s4471
  128.         Print "@08@─@07@─@0F@─@04@Age @09@- @0F@"; s4475
  129.         Print "@08@─@07@─@0F@─@04@Height @09@- @0F@"; s4479
  130.         Print "@08@─@07@─@0F@─@04@Weight @09@- @0F@"; s4483
  131.         Print "@08@─@07@─@0F@─@04@Hair Color @09@- @0F@"; s4487
  132.         Print "@08@─@07@─@0F@─@04@Eye Color @09@- @0F@"; s4491
  133.         Print "@08@─@07@─@0F@─@04@Marital Status @09@- @0F@"; s4495
  134.         Print "@08@─@07@─@0F@─@04@Hobbies @09@- @0F@"; s4499
  135.         Print "@08@─@07@─@0F@─@04@Users Sex @09@- @0F@"; s4503
  136.         Print "@08@─@07@─@0F@─@04@Favorite Type of Music @09@- @0F@"; s4507
  137.         Print "@08@─@07@─@0F@─@04@Favorite Music Band @09@- @0F@"; s4511
  138.         Print "@08@─@07@─@0F@─@04@Favorite Sport @09@- @0F@"; s4515
  139.         Print "@08@─@07@─@0F@─@04@Do You Smoke? @09@- @0F@"; s4519
  140.         Print "@08@─@07@─@0F@─@04@Favorite TV Show @09@- @0F@"; s4523
  141.         Print "@08@─@07@─@0F@─@04@Favorite Movie @09@- @0F@"; s4527
  142.         Print "@08@─@07@─@0F@─@04@Favorite Book @09@- @0F@"; s4531
  143.         Print "@08@─@07@─@0F@─@04@Favorite Author @09@- @0F@"; s4535
  144.         Print "@08@─@07@─@0F@─@04@Religion @09@- @0F@"; s4539
  145.         Print "@08@─@07@─@0F@─@04@Favorite Food @09@- @0F@"; s4543
  146.         Print "@08@─@07@─@0F@─@04@Favorite Soft Drink @09@- @0F@"; s4547
  147.         Print "@08@─@07@─@0F@─@04@Any Kids? @09@- @0F@"; s4551
  148.         WaitEnter 
  149.       Else
  150.  1040   Print "That User hasn't filled out their information yet, sorry."
  151.         WaitEnter 
  152.         GoTo 1064
  153.       End If
  154.  1058 GoTo 1064
  155.  1064 Chain s4603, ""
  156.